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4-SEP=-1984 BOOTS.SRCJDQBTDORIVR.MAR; 1 
E DQBTORIVR = RB730:RB02/RB80 BOOT DRIVER 
1 *yb4=000" 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Ha A a ad NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
oepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ae 
FACILITY: BOOTS 
ABSTRACT: 


This module contains the eoorstres device driver for 
the RBO2 and RB80 disks on the RB/730 controller. 


ENVIRONMENT: IPL 31, kernel mode, code must be PIC 
AUTHOR: Greg Robert, CREATION DATE: 09-Jun-1981 
NOTE: The RB730 controller is supported by host microcode which is 


activated each time a device register is accessed, and for 
each block transferred. Because of this, registers must be 


handled in strict accordance with the RB?30 software specification. 


The following special registers protocols are significant: 


DAR -- When the DAR is loaded some drive functions 
are initiated. Consequently the function code 
must be loaded into the CSR (with CRDY set) 
poser to loading the DAR for seeks and transfers. 
or data transfers, the BAR and BCR must also 
be loaded prior to loading the DAR. 


MPR == The microcode keeps an internal disk address 
register for computing cylinder differance words 
for RBO2 seek commands. If this internal register 
falls out of syre with the actual disk address 
it can be rese 
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by executing a ‘‘read header’’ command. 
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Note that the header must actually -$ read (thru 
the MPR) in order to effect the rese 


MODIFIED BY: 


v401 GRR4O13 Gregory R. Robert 15-Dec-1983 
Add recalibrate command to R80 error path to recover 
when heads locked inside field service cylinder. 


v202 GRR2002 Gregory R. Robert 30-Nov-1981 
Added ECC correction logic. The code was moees ee after 
the equivalent routines in DMBTDRIVR and MBBTDRIVR 


.SBTTL DECLARATIONS 
: INCLUDE FILES: 


OOQoooooooocooooooo 
OOoOooooooooooooooo 


SBTDDEF ; Boot device types 
SIODEF : 1/0 function codes 
SPROEF : Processor Register definitions 
SRPBDEF ; RPB offsets 
SSDEF ; Status forre 
SUBADEF 3; UBA_defin 
SUBIDEF : 11/750 UBA (ee 
; MACROS: 


: EQUATED SYMBOLS: 


MODE = 20 ; MAPPING MODE OFF ARGUEMENT POINTER 


COSCO OCOSOSSSSSCOooooooooooooooooooooooooooo 


SoOooooooooooooooooooooeo 


3 RB730:/RBO2/RB8O REGISTER OFFSETS FROM CSR ADDRESS 
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PUR SSBLSA EONS SENIAP UN AS SENERE ORAS SENS NR UN SOR IO 


09 SDEFINI RB ; START OF REGISTER DEFINITIONS 
9 90 101 SDEF BLKL 1 :CONTROL STATUS REGISTER (CSR) 
s. 3 ROTELD RB_CS, 0, = [START OF CSR BIT DEFINITIONS 
0004 1 <DRDY > DRIVE READY 
06 1 <Fcope. °. - + FUNCTION CODE 
004 1 <,2>,-. : RESERVED BITS 
004 1 <fE,.M>,- : INTERRUPT ENABLE 
004 1 <CROY, ,M>,- : CONTROLLER READ 
0004 1 <DS,2>,° : DRIVE SELE 
0004 1 <oPi,,M>.- : OPERATION INCOMPLETE 
0004 1 <DCK, .M>,> ; DATA CRC OR eA ADER CRC OR DATA ECC 
a <OLT, ,M>,- : DATA LATE OR HEA DER NOT FOUN 
Bp 4 1 <NXM, ,M>,- 3; NON-EXISTENT MEMO 
£03 <DE,.M>,- : DRIVE ERROR 
0004 1 <CE,.M>,= : COMPOSITE ERROR 
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<ATN,4>,° : DRIVE ATTENTION BITS 
<ECS,2>,° : ECC STATUS 
<SSEL,,M>,- $ SKIP SECTOR ERROR INHIBIT 
<SSE,,M>,- : SKIP SECTOR ERROR 
<IR,,.M>,= + IDC INTERRUPT REQUEST 
<MTN.,M>,= + MAINTENANCE MOD 
<TYP,,M>,=- ; DRIVE TYPE 1=R 0= 
<ASSI; M>, t AUTOMATIC SKIP SECTOR INHIBIT 
<T01,.m>,- : TIME OUT INHIBIT (U=DIAG'S) 
<FMT..M>.= + RBO FORMAT CONTROL 
<,2>- t RESERVED BITS 
TEND CSR BIT DEFINITIONS 
~BLKL ;BUS ADDRESS REGISTER (BAR) 
-BLKL :BYTE COUNT REGISTER (BCR) 
BLKL :DISK ADDRESS REGISTER (DAR) 
RB_DA,0,<= SSTART OF DAR BIT DEFINITIONS 
Ec, &>.- ; SECTOR 
<TRK,&>,- 3; TRACK 
<CYL,16>= + CYLINDER 
TEND OF DAR BIT DEFINITIONS 
f ;MULTIPURPOSE REGISTER (MPR) 
RB_MP,0,<- tRBO2 STATUS WORD DEFINITIONS 
<STA,3>.- : DRIVE STATE 
<BH, .M>.- : BRUSH HOME 
<HO, -M>.- : HEADS OUT 
<CO,.M>.- + COVER OPEN 
<HS..M>.- : HEAD SELECT 
,1>,° : RESERVED 
<OSE..M>,- : DRIVE SELECT ERROR 
C,,M>, : VOLUME CHECK 
<WGE, ,M>,- + WRITE GATE ERROR 
<SkTO, ,M>,- : SEEK TIME OUT 
<WL,.M>,- : WRITE LOCK 
<CHE, .M>,- : CURRENT HEAD ERROR 
<WDE, .M>= + WRITE DATA ERROR 
RB_MP,0,<- SGET STATUS COMMAND DEFINITIONS 
<MRK, M>,- 3; MARK (ALWAYS 1) 
<STS,.M>.= : GET STATUS 
<,1>,° ; RESERVED 
<RST, M>,- e 
RB_MP.0,<- ;RB80 STATUS WORD DEFINITIONS 
<SEC.5>.- : CURRENT RB80 SECTOR 
<,3>,° : SERVED 
<fLT, .M>,- : DRIVE FAULT 
<PLGV.,M>,- > PLUG VALID 
<SKE,,M>,=- ; SEEK ERROR 
<ONCY,.M>,- : ON CYLINDER 
<DRDY. -M>.- : DRIVE READY 
<WIP, -M>,- + WRITE PROTECT 
<,2>,° + RESERVED 
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O14 17 ;END MPR BIT DEFINITIONS 
14 176 SDEF RB_EC1 -BLKL 1 ECC POSITION REGISTER rn 
01 175 -VIELD RB_EC1,0,<= SSTART OF EC1 BIT DEFINITIONS 
4} 178 <PQS .15>,- ; ST senves BIT POSITION OF ECC ERROR 
a 178 > sEND EC1 BIT DEFINITIONS 
01 180 SDEF RB_EC2 ~BLKL 1 ECC eae mesistee (EPAR) 
O1C = 181 -VIELD RB_EC2,0,<- SSTART EC2 BIT DEFINITIONS 
o1c 1 g <PAT, 11>.- : PATTERN fF ECC ERROR BURST 
Bait 1 <,21>- 3 RES ERYED 
oie : : > END se BIT DEFINITIONS 
38 186 SDEF RB_CMD »BLKL 1 ;AUXILLARY COMMAND REGISTER 
020 187 -VIELD RB_CMD,0,<=- sSTART OF CMD BIT DEFINITIONS 
90 0 188 <INIT, $23, ; SUBSYSTEM CLEAR <-- =1 
3 8 139 > sEND CMD BIT DEFINITIONS 
0020 191 SDEFEND RB sEND RB730:RB80/RBO2 REGISTER DEFS 
0000 135 
0000 193; 
0000 194 ; HARDWARE FUNCTION CODES 
0000 195; 
3208 196 
00000000 0000 197 F_NOP=0*2 3NO OPERATION 
00000006 0000 198 F_SEEK=3*2 ;SEEK CYLINDER 
00000008 0000 199 F_READHEAD=4*2 READ HEADE 
00000002 0000 00 F_WRITECHECK=1*2 sWRITE CHECK 
0000000A 0000 01 F_WRITEDATA=5*2 ;WRITE DATA 
0000000C 0000 b¢ F-READDATA=6#2 READ DATA 
00000004 0000 03 F_GETSTATUS=2"2 3GET STATUS 
0000 04 
0000 05 : 
0000 06 ; OWN STORAGE: 
0000 07 ; 
0000 08 
0000 09 
3208 10 : 
000 11 : Boot driver table entry 
0000 518° 
00C0 14 SBOOT_DRIVER CPUTYPE = PR$_SID_TYP730,- Must be VAX 11/730 
B008 15 DEVTYPE = BTDSk_D0,- 3 Device type (DQ) 
000 16 $I E = DQ_DRVSI7,- ; Driver size 
0000 17 = DQ_DRIVER,- : Driver address 
0000 18 ORI URNARE™ = DQNAME : Driver file name 


— 


starting address of transfer cbyte offset in first 


page ORed with starting map register number) 
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p 9 -SBTTL RB730:RB02/RB80 Bootstrap driver code 

§ ++ | 

¢ Inputs: 

§ Ra - base address of adapter's register space 

RS = LBN FOR CURRENT PIECE OF TRANSFER 

8 Rg = contains 

9 fo - address of device's CSR 

0 Re - SIZE OF TRANSFER IN BYTES 

1 R - address of the RPB 

§ R10 - 

4 

; 

8 

9 


SOOO SCOOCOOCSCOOOCOOCOCOSOOCOOSoOSoOSoCoOo 
COOCoCoOCoOOCOoCoOoOOooCOooCoOooSoSo 


FUNC(AP)= 1/0 operation (IOS_READLBLK or I0$_WRITELBLK only) 
BUF (AP) = Buffer address 
SIZECAP)= Size of transfer 
MODE(AP)= Transfer mapping mode 
Implicit inputs: 
RPBSW_UNIT - RPB field containing boot device unit number 
Outputs: 
RO = status code 
SS$_NORMAL - successful transfer 
SS$_CTRLERR - fatal controller error 


R3 - must be preserved 
This routine destroys R1, R2, R4, RS, R6. 


Register useage during this routine: 


RO = scratch 

R1 byte count for current transfer / scratch 
R scratch 

& adaptor base address 


unit number 
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S 
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RS = logical block number for current transfer 
R disk address for current transfer / scratch 
R device CS 
R8 - remaining byte count 
00000004 UF = 4 
0000000 IZE = 8 
0000001 ; UNC = 16 
060 DQ_DRIVER 
ae 
$000 > COMPUTE ADDRESS OF DEVICE CSR 


- RB730: 


57 0200 C3 ODE 


: 


: 
¢ pe 003 
54 02 08 64 A9 FO 000 
00D 

+3 

D 

1c A? (01 cf OD 

Dd 1] 

: 

10 A? Ss OB 1 

54 9 1 

17 

67 04 17 
0178 19 

50. = 10 A? p° 1¢ 

67 04000000 8F 0D § 

15 12 


1 50 O05 00 €D 


DD 12 


54D 
67 08 
0160 30 
10 A? «(10 A? sO 


07. «11 


1A 650)0«0(05_iO8tsé«éiE'CD 


c8 


— 
™ 


OOOCOSCOSOOOOOSSOOSOSOOSOOSOSOSOOSOOOOSOOSOSOSOOOSOSOSOOSOOSOOOOOOOOOOOOOOOOOOO 
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02/RB80 BOOT DRIVER 
RB750:RBO2/RB80 Bootstrap driver code 


MOVAL “X200(R3),R7 


C 


; RESET DRIVE AND GET STATUS 


OO COCO COCO CO CD CO CDC CO I~ 


oo ~ 
WO OONOUS Ww" OU0an 


10$:  MNEGL 4#1,RB_CMD(R7) 
MOVL #RB_MP_M_STS- 
iRBoMPATARK, 
RB_APCR7) 
94 BISL3 2 
95 #F “GETSTATUS,- 
36 RB-CS(R7) 
9 BSBW READY 
MOVL RB_MP(R7),RO 
BITL #RB_CS_M_TYP,RB_CS(R7) 
BNEG 208 


; CHECK RBO2 STATUS 
‘ CMPZV #0, #5, RO,- 
#RB_MP_MHO- 
1RB-MP_MBH- 
BNEQ 10% 


DISK POSITION 


BISL3 R4,- 
#F “READHEAD, = 
RB~CS(R7) 
BSBW se READY 
CMPL = RB_MP(R7),RB_MP(R7) 
BRB 200$ 


; CHECK RB80 STATUS 


20$:  CMPZV #8,#5,R0,- 
#<RB_MP_M DRDY- 

'RB_AP_A_ONCY- 

iRBOAPLA_PLGV> 


BNEQ 10$ 


ono 
WN =O ODNOA UNE WN OOO NO UE WN" O OONAU EWN 0 0 


WANA ROPUNIPINIMINININ 2 BQOO OOOO SCOO 
So 


TEREGHOHL SEALERS WASOES hsoeatOim 


READ A HEADER TO MAKE SURE MICROCODE IS 


BOOTS. SRC JDQBTDRIVR.MAR; 1 


COMPUTE CORRECT DEVICE CSR 


; POSITION AND STORE THE UNIT NUMBER IN R4 FOR GLOBAL USE 


LRL R4 3 CLEAR R4 
INSV RPBSW_UNIT(R9) .#8,42,R4 ; GET UNIT NUMBER 


INITIALIZE SUBSYSTEM 
PUT GET STATUS 

« AND WITH RESET 

« AND _: BIT 


NUMBER 

« AND FUNCTION 

: O CSR 

T FOR DRIVE AND CONTROLLER READY 
S_WORD 


TEST BITS 04:00 OF STATUS FOR 
«e+ HEADS OUT 
«e+ BRUSHES HOME 
«++ SEEK LINEAR MODE (READY TO GO) 
LOOP IF NOT READY 


SYNCRONIZED WITH CURRENT 

MERGE UNIT NUMBER 

eee AND FUNCTION 

---_INTO CSR 

WAIT FOR DRIVE AND CONTROLLER READY 
READ THE HEADER (UCODE DOESN'T LOOK 


-.+AT IT UNLESS WE ACCESS IT) 
CONTINUE IN COMMON 


TEST BITS 08:12 OF STATUS FOR 
«+ +DRIVE READY 


Ll 
+. SHIFT TO LOW BYTE 
IF NOT, BRANCH TO WAIT FOR IT 


ref, 


Se 


DQBTORIVR RB730:RB02/RB80 BOOT DRIVER ae 15=SEP=1984 23:49:35 VAX/VMS M v04-00 p 7 | 
sa 4 o = 3 a ro = ] 
viva RB7 O:RBGS/ ROBB Bootstrap driver code 27866-1387 g3O2i73 Yeoors SRe DQBTDRIVR.MAR; 1 res (2). 
O93 ¢ | 
04 : ; NOW CONVERT LOGICAL TO PHYSICAL <= THE COMPUTED DISK ADDRESS HAS THE 
904 ; FORM OF A LONG WORD WITH LOW BYTE=SECTOR, NEXT BYTE=TRACK, AND HIGH 
04 : ; WORD = CYLINDER. 
0045 40 ; 1) CYLINDER = LBN / BLOCKS_PER_CYLINDER 
8 45 341; II) TRACK = REMAINDER(I) / BLOCRS_PER_TRACK 
045 4g : III) RBO2_SECTOR = REMAINDER(II) #72 
0045 343: Iv) RB80-SECTOR = REMAINDER(I1) 
bos ace | 
514 irk 46 200$: CLRL RI : CLEAR HIGH PART OF DIVIDEND 
56 4 0047) 34 CLRL = R6 : CLEAR HIGH PART OF DIVIDEND 
67 04000000 8F 03 0049 348 BITL § #RB_CS_M_TYP,RB_CS(R7) : IS THIS AN RB80? 
13 12 0050 349 BNEG 2208 t BRANCH IF SO 
a 
a 339 ; COMPUTE RBO2 DISK ADDRESS 
50 52 55 28 7B 0052 354° EDIV  #40/2%2,R5,R2,R0 : R2 = DESIRED CYL, RO = REMAINING BLKS 
56 50 «500 «614~—SCO7BSCO005 55 EDIV BeOS AO ROK + RO = DESIRED TRK, R6 = REMAINING BLKS 
56 02)CC4sC«SCCC85H MULL. #2, + 2 SECTORS PER BLOCK 
51 28 56 (C3 O0SF 357 SUBL3 R6.#40,R1 + R1 = 256 BYTE SECTORS LEFT ON SURFACE 
45 11 0063 358 BRB 236$ + CONTINUE IN COMMON 
boss 300 
0065 361 [COMPUTE RB8O DISK ADDRESS INSTEAD 
50 52 (55 00000182 8F 78 0065 308 520$: EDIV #31*14,R5,R2,RO ; R2 = DESIRED CYL, RO = REMAINING BLKS 
56 50 50 1F 7B 0066 364 EDIV. #31,R0.RO.R6 + RO = DESIRED TRK. R6 = REMAINING BLKS 
51 1F «65606«6C3) (0073S 365 SUBL3 R6,#31.R1 : R1 = 512 BYTE SECTORS LEFT ON SURFACE 
51 02 C& 0077 366 MULL = #2, R1 : R1 = 256 BYTE SECTORS LEFT ON SURFACE 
SO7A 38 
007A 369 SIF FINAL TRANSFER USE REMAINING BYTE COUNT, ELSE USE REMMAINDER OF TRACK 
51 00000100 8F C& OO7A 371 3308: MULL #256,R1 ; R1 = BYTES LEFT ON SURFACE 
51 58 D1 0081 es CMPL =e RB RI : ARE ADDITIONAL TRANSFERS REQUIRED? 
03 1A 0084 37 BGTRU 2465 : BRANCH IF ANSWER YES 
51 58 00 0086 374 MOVL RB, R1 : SET BYTE COUNT FOR FINAL TRANSFER 
0089 76; 
0089 z 3FORM FULL DISK ADDRESS (CYL, TRK, SEC) 
56 10 10 S52. £0 089 79 240$: INSV R2,#16,#16,R6 ; MOVE CYLINDER INTO HIGH WORD 
56 «(08:«=O08 «= 50Ss«éF'O 08 et INSV RO.#8,#8,R6 : MOVE TRACK INTO SECOND BYTE 
009 3 
909 58 : PERFORM SEEK == NOTE: FOR RB730 SEEKS AND TRANSFERS, THE COMMAND 
09 4 : MUST BE LOADED INTO THE CSR WITH CONTROLLER READY BIT SET, BEFORE 
ate fc ; WRITING TO THE DISK ADDRESS REGISTER !!! 
54 9 009 5 : BISL3 R4, - : MERGE UNIT NUMBER 
095 «6388 #F  SEEK- : 4... FUNCTION AND 
099 89 'RB_CS_M_CRDY,- t te. SUPPRESS EXECUTION 
67 00000086 8F 95 0 RB_CS(R7T : i252 INTO CSR 
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MOVL —-R6, RB_DA(R7) ; LOAD DISK ADDRESS IN DAR 

BICL  #RB_CS_M_CRDY,RB_CS(R7) ; INITIATE THE FUNCT 

BSBW REA Y ; WAIT FOR CONTROLLER AND DRIVE READY 

BBC #RB_CS_V_CE,RO,300$ ; BRANCH IF NO ERR 

BRW 900 + EXIT 


: SEEK IS COMPLETE == EXECUTE TRANSFER FUNCTION 


MOVZBL af READOAT RS : ASSUME READ FUNCTION 
'RB_CS_M_CRDY,R2 see WITH CONTROLLER READY 
CMPL FUNC(AP) ;#10$.WRITELBLK ; 18 IT A ? 


BNEQ 
MOVZBL wf ib cone 


; ODE 
'RB_CS_M_CRDY,R2 ; «ee WITH CONTROLLER READY 


E DEVICE REGISTERS MUST BE LOADED IN THE PRESCRIBED ORDER! 

FUNCTION CODE LOADED INTO CSR WITH CRDY SET 

BYTE COUNT AND MEMORY ADDRESS (THESE PuO ARE pREVERSABLE) 

DISK ADDRESS (FIRST HARDWARE SILO LOADED AT THIS TIME) 

CRDY CLEARED (SECOND SILO LOADED, XFER BEGINS) 
BISL3 R4,R2.- : MERGE UNIT NUMBER AND FUNCTION 

RB. CS(R7) i+22 INTO CSR 
MNEGL R17RB_BC(R7) : SET NEG TRANSFER BYTE COUNT 
OVL R10,RB BACR?) : SET BUFFER ADDRESS 

MOVL R6,RB_BA(R7) : SET DESIR ED DISK ADDRESS 
BICL RB_CS_M_CRDY,RB_CS(R7) ; INITIATE THE FUNCTION 
BSBW = READY : WAIT FOR CONT ROLLER AND DRIVE READY 
MOVL RB_BA(R7),R10 ; UPDATE BUFFER ADDRES 
ADDL RB~BC(R7).R1 + COMPUTE ACTUAL BYTES TRANSFERRED 
SUBL R17R8 ; UPDATE Bytes LEFT TO TRANSFER 
ASHL — #=9,R1,R2 ; CONVERT TO PAGE COUNT 
ADDL 2,R5 ; UPDATE LOGICAL BLOCK NUMBER 


BBC #RB_CS_V_CE,RO,500$ BRANCH IF NO ERRORS 


FOR ECC ERROR -- TO BE ELIGIBLE FOR CORRECTION THE FOLLOWING MUST APPLY 


THE OPERATION MUST A A READ DATA 

THE crocs must BE A DATA CHECK 

THE ERROR MUST BE A CORRECTABLE ECC ERROR 

THE TRANSFER MODE MATCHES THE MAP-ENABLED POSITION, I. Yr 
TRANSFER IS VIRTUAL, AND MAPPING IS ENABLED, OR V 

SOME DATA WAS TRANSFERRED 

NO OTHER ERRORS OCCURED 


CMPZV #RB_CS_V_FCODE,- WAS THIS A READ DATA OPERATION? 
#RB_CS"S"FCODE,RO,- bees 
#<F-READBATA @ -1> 

BNEQ 9008 ‘BRANCH IF NOT 

BBC #RB_CS_V_TYP,RO,900$ ‘BRANCH IF RBO2 

BITW #RB-CS"M"DE- [DRIVE ERROR 
'RB_CS_M_NXM=- 3..eOR NON EXISTENT MEMORY 


ey 


<Q 
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| DOBTORIVR - RB730:RBO2/RB80 BOOT DRIVER 735 P=1984 23:49:3 AX/VMS Macro v04-00 Page 
| ¥0e-000 RB7 0:R803/R80 Bootstrap driver code 4-SEP-1 P1984 33; :04: 33 taoors: SRC JDQBTDRIVR.MAR; 1 . 
| OFB 448 H a fa 3~+eOR DATA LATE 
| FB 449 'RB_CS_M_OPI,= 5++eOR OPERAS IOW INCOMPLETE (HDR CRC) 
50 7400 SE FB 450 R 
12 FF 451 BNEQ 900$ i BRANCH IF SO 
| 5A 50 —1 i 12g BBC #RB_CS_V_DCK,RO,900$ BRA NCH IF NOT A DATACHECK 
96 ED 105 45 CMPZV = #RB_CS_V_ECS,= : COMPARE ECC STATUS BITS (START) 
9¢ 107 454 #RB_CS_S_ECS,= t.ee (SIZE) 
03 108 455 0,= te. (FROM) 
10A 496 oot t...10 BINARY 11 (BOTH SET) 
3 12 OWA 45 BNEQ 90 eT ae y NOT weit ae 
50 8 DB O10C 458 MFPR #PRS$_MAPEN,RO ; GET MAP ENABLE STATE 
14 ac 50 «01 0108 459 CMPL RO, MODE (APS : SAME AS 1/0 MODE 
4A 12 «0113 «460 BNEG 9006S : NO, CANT DO SIMPLE ECC 
B11 462 
0115 18 : Appears to be a correctable data check. Attempt the correction. 
Brie cee ; Register useage: RO=Position, Ri=Width, R2=Buffer offset to error sector 
50 14A7 DO 0115 466 MOVL RB_EC1(R7) ,RO 3; FETCH ECC POSITION eo 
50 d7 0119 467 DECL R : MAKE POSITION 1 ORI 
51 0200 C8 3 0118 468 MOVA 512(R8) ,R1 ; ay et PLUS ERROR SECTOR 
52 08 AC 51 C 0120 469 SUBL R1, SIZE (AP), R2 : BUFFER OFFSET TO ERROR SECTOR 
51 08 C4 0125 470 MULL #8, R1 3; CONVERT BYTE COUNT TO BIT COUNT 
51 50 C2 0128 471 SUBL RO,R1 : COMPUTE CORRECTION FIELD WIDTH 
1A 15 0128 rh BLEQ 500$ ; BR IF NO CORRECTION NEEDED 
0B 51 D1 8162 47 CMPL R1,#RB_EC2_S_PAT : MINIMUM OF 11 AND BUFFER REMAINING 
03 15 0130 47% BLEQ 48S > KEEP MINIMUM VALU 
3] 0B »vd0 0132 475 MOVL #RB_EC2 S ; USE MAXIMUM FIELD ld WIDTH 
7E 04 BC42 1 50 EF 0135 476 480$: EXTZV RO,R1 SSF CAPS ER2I, ~(SP); GET FIELD TO BE CORRECTED 
18 A? «CC «(013C)=— 477 MORL RB_EC2(R7), (SP) APPLY CORRECTION CODE 
04 BC42 51 50 8E FO Big $78 INSV (SP)+,RO,R1, aBUF (AP) CR2]: AND RESTORE IN BUFFER 
58 DS 0147 £48060 500$: TSTL R8 ; MORE TO TRANSFER? 
03 15 0149 481 BLEQ 600$ : BRANCH IF DONE 
FEF7 31 0148 rt {| BRW 200$ ; CONTINUE TRANSFER 
O14E 48 
O14E 484 ; 
RiGE re a ; TRANSFER COMPLETE - RETURN 
51 08 AC 3C 8185 487 b00s: MOVZWL SIZEC(AP),R1 ; SET TOTAL BYTES TRANSFERRED 
12 015 488 BNEQ 610$ ; BRANCH IF ORIGINAL SIZE WAS TRANSFERRED 
51 00008000 8F DO 0154 489 MOVL #*x8009,R1 3: ELSE SIZE WAS FORCED TO 64K 
50 01 3C 60158 «6490 6108: MOVZWL #SS$_NORMAL ,RO ; SET COMPLETION CODE 
05 OSE 491 RSB 3; AND RETURN 
O15F $36 
O1SF 493; 
O15F 494 : RETRY ERROR 
SIs 48G ° 
67 04000000 8F 03 015F 299 900$: BITL  #RB_CS_M_TYP,RB_CS(R7) ; IS THIS AN RB80? 
16 «13 16 £38 BEQL 9058 ; BRANCH IF NOT 
016 00 : Do a recalibrate to recover from possibility that heads are locked 
16 1 : inside field service cylinder -- unit number and function code must 
19 gi ; be loaded before disk address 
54 C9 016 04 BISL3 R4, - ; MERGE UNIT NUMBER 


--——_—- -----— — 
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00000086 8F 
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00000080 8F 
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02/RB80 BOOT DRIVER 
Bootstrap driver code 


sedi cRDY 
Rv - ‘ 
me. est y CRDY,RB_CS(R7) 


78000, oe 
#0,#9.BUF (AP) R10 
#S5$_CTRLERR,RO 
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749:3 AX/VMS Macro Vv04-00 Page 10 
704: 318 Yeoors: SRCJDQBTDRIVR.MAR; 1 ° (2) 
ees FUNCTION A 

eee SUPPRE.“S EXECUTION 

wee we csr 

OAD -1 (OEMs Sonate, IN DAR 

INITIATE THE FUNCTION 

AIT FOR CONTROLLER ANO DRIVE READY 
RESTORE BYTE SIZE OF TRANSFER IN R8 
BRANCH IF SIZE WAS LEGAL 

FLSE FORCE TO 64K SIZE 

RESTORE BYTE OFFSET IN R10 

SET FATAL CONTROLLER ERROR 

AND ATTEMPT RETRY 


WAIT FOR CONTROLLER AND DRIVE READY OR ERROR 


FETCH CSR 

EXIT IF ERROR 

LOOP UNTIL Ny READY 
LOOP UNTIL DRIVE READ 


; Driver file name 


tates - a | 
aco 


—-—— acaeiiers Naaccnpibetebeds 
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| DOBTDRIVR = RB730:RBO2/RB80 BOOT DRIVER 19-60-1986 33:69:38 pareve Macro v04-00 Page 
Symbol table 64-SEP-1984 23:04:1 BOOTS.SRCJDQBTDRIVR.MAR; 1 
STABLE = 00000000 R 02 OP$_CVTGB = 000048FD 
BTDSK_DQ o000008 OPS$_CVIGF = 38 334 
BUF = 00000004 OP$_CVTGH = 6FD 
DQNAME Boe 1A7 R 3 OPS_CVTGL = QOO04AFD 
DQ_DRIVER 8 000 R 3 OP$_CVTGwW = 000049FD 
DQ-DRVSIZ = 00000184 OP$_CVTHB z SO0GBED 
C = 00000010 OP$_CVTHD 2 44 FD 
F_GETSTATUS = 00000004 OP$_CVTHF = QOOOF6FD 
Ff = 00000000 OP$_CVTHG = 000076FD 
F -READDATA = 0000000¢ OPS$_CVTHL = QOOO6AFD 
fmSeek = 90000008 OPSTEVILD - a900068 
= = 
F-WRITECHECK = tittaitdie OP$_CVTLF = $09 Boe 
F-WRITEDATA = 0000000A OP$_CVTLG = QOO04EFD 
10$ WRITELBLK = 00000020 OP$_CVTLH = QOO06EFD 
MOD = 00000014 OPS_CVTLP = Q00000F9 
OP$_ACBD = 0000006F OP$_CVTPL = 00000036 
OPS_ACBF = 0000004F OPS$_CVTPS = 00000008 
OP$_ACBG = QOOO4FFD _CVTPT = 00000024 
$_ACBH = QOOO6FFD OP$_CVTROL = 00000068 
OP$_ADDD = 00000060 OPS_CVTRFL = 00000048 
OP$_ADD = 00000061 OP$_CVTRGL = 00004BFD 
OP$_ADDF = 00000040 OP$_CVTRHL = 00006BFD 
OP$_ADDF = 00000041 OPS$_CVTS = 00000009 
OP$_ADDG = Q00040FD OP$_CVTTP = 00000026 
OP$_ADDG = 000041FD OP$_CVTwWD = 0000006D 
OP$_ADDH2 = 000060FD OPS_CVTWF = 0000004D 
ADDHS = 000061FD OP$_CVTWG = 00004DFD 
OP$_ADDP4 = 00000020 OPS$_CVTWH = Q0006DFD 
OP$_ADDP6 = 00000021 OP$_DIVD = 00000066 
OP$_ASHP = Q00000F 8 OP$_DIVD = 00000067 
CLR = 0000007C OPS$_DIVF = 00000046 
OPS$_CLRF = 000000D4 OP$_DIVF = 00000047 
OP$_CLRG = 0000007C OP$_DIVG = 000046FD 
$-CLRH = 00007CFD OP$_DIVG = 000047FD 
OPS_CMPD = 00000071 ap ivi = 000066FD 
OPS_CMPF = 4444 6 OP$_DIVH = 000067FD 
OPS_CMPG = 000051FD OP$_DIVP = Deo nooks 
OP$_CMPH = 000071FD OP$_EDITPC = 00000038 
_CMPPS = 00000035 P$_EMODD = 00000074 
OPS_CMPP4 = 00000037 OP$_EMODF = 00000054 
CRC = 00000008 OP$_EMODG = 000054FD 
~CVTBD = 0000006C OP$_EMODH = 000074FD 
OP$_CVTBF = 94 94 gid OPS_MATCHC = 88880883 
OP$_CVTBG = QO0004CFD OP$_MNE = 000000 § 
OP$_CVTBH = 44.994 OP$_MNEGF = 0000005 
OP$-CVTDB = 00000 $8 OP$_MNEGG z eee Tta 
_CVIDF = 00000076 OP$_MNEGH = 000072FD 
OP$"CVTOH s B08 FD OP$_MOVD = 00000070 
~CVTDL s ° 06A OP$_MOVF = 88980830 
OP$"CVTDW s 9 069 OP$_MOVG = 9900 OFD 
OP$-CVTFB = 00000048 “MOVH = 000070FD 
OP$_CVTFD = 000 0056 P$_MOVP = 00000034 
OP$_CVTFG = 000099FD OP$_MOVTC = POOR O OSE 
eee evire = SouUeaeR Sre-natay = Seeauee 
OPS"CVTFW = 00000049 OPS" MULD s bo0sb08s 
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| DOBTORIVR - RB730:RBO2/RB80 BOOT DRIVER iF ot tae 4 $362 +t yaneyes Macro v04-00 age 13 
Psect synopsis 4-SEP-1984 BOOTS.SRCJDQBTDRIVR.MAR; 1 (2) 
-owmenesemonamareane + 
: Psect synopsis ! 
g monn ear nw ean aa aan $ 
PSECT name Allocation PSECT No. Attributes 
. ° 00000000 ( -)» 00 ¢ 0.) NOPIC USR CON ABS LCL aos NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000 SS ( 32.) 1 ¢ -) NOPIC USR CON ABS LCL NOSHR’- EXE WRT NOVEC BYTE 
BOOTDRIVR_4 000000 ( 60.) ¢ ( §°} NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC BYTE 
BOOTDRIVR_2 000001B4 ( 436.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
teem onamanacae wee mo emer - 
! Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 36 OF 0 00-08 00:00:00.55 
ponnend processing 134 00:00:00.7 sb Bg peed 
s 1 586 88:60: 62°28 00:00:43.83 
Svabol table sort 9 00:00: $-52 00:00:05.29 
ass 2 11 00:00:05.19 00:00:10.61 
Symbol table output 21 es SY 00:00:00.24 
Psect synopsis output 2 00:00:00.0 00:00:00.03 
Cross-reference output 0 ea ae 00:00:00.00 
Assembler run totals 894 00:00:30.27 00:01:03.03 


The working set Limit was 2000 pages. 

103299 bytes (202 pages) of virtual memory were used to buffer the intermediate cod 

ore were 90 pages of symbol table space allocated to hold 1596 non-local and 16 local symbols. 
3286 source Lines were read in Pass 1, producing object records in Pass 2. 

145 pages of virtual memory were used to define 143 macros. 


peewee ema mn me ero ee moe} 
! {Macro Library statistics : 


Macro Library name 


-5255$DUA28: B00TS.08, 8007S. MLB; 1 1 
~$255$DUA28: OBJJLIB.MLB; 1 4 
~$255$DUA28: 


SySi SBISTARLET MLB; 2 ; 
TOTALS (all Libraries) 1 


1611 GETS were required to define 13 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:DQBTDRIVR/OBJ=0BJ$:DOBTDRIVR MASD$: CEMULAT.SRCJMISSING/UPDATE=(MASD$: CEMULAT.ENHJMISSING) *MASD$:CBOOTS.SRCJDQBIDRIVR/ | 
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